home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / REF_VIEW.SRC < prev    next >
Text File  |  1990-11-03  |  3KB  |  134 lines
  1. ;\|
  2. ;REF_VIEW.SRC     Translated from REF_VIEW.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;REF_VIEW 00:34:43 AM  15/ 7/90   |
  4. define(TOT_SEEN|N|4||)
  5. define(DUMMY|A|10||)
  6. define(TOT_EMERG_REFS|N|4||)
  7. define(CTR2|N|2||)
  8. define(CTR3|N|2||)
  9. define(CLIN|N|4||)
  10. define(EMER|N|4||)
  11. define(COUNTER|N|5||)
  12. define(CENT|N|5|2|)
  13. define(YN|A|1||)
  14. define(DOC_CTR|N|2||)
  15. define(YN2|A|1||)
  16. define(CTR|N|2||)
  17. define(TOT_REFS|N|3||)
  18. define(CLIN_CTR|N|2||)
  19. open(REFER||0|)
  20. open(APSET||0|)
  21. open(GPSETUP|||)
  22. trap(Q|G|EXIT2)
  23. find(B|HEADING||)
  24. find(B|APSET||)
  25. STARTER:
  26. clrscr
  27. pmsg("ENTER DOCTOR NUMBER: "|1|1|Y|N|S|DOC_CTR)
  28. if DOC_CTR => (6) goto CLINCOUNT
  29. clrlne(1|1)
  30. saves(1)
  31. window(1|24|23|79)
  32. REF_COD = (DOC_CTR)
  33. find(M|REF_COD|EXIT|)
  34. CLIN_CTR = (1)
  35. for(CTR|1|22|1)
  36. {
  37. pmsg(@R;CLINICS[CLIN_CTR];@N;" ";@R;CLIN_REF[CLIN_CTR];@N|1|CTR|N|N|S|)
  38. TOT_REFS = (CLIN_REF[CLIN_CTR]+TOT_REFS)
  39. CLIN_CTR = (CLIN_CTR+1)
  40. }
  41. for(CTR|1|22|1)
  42. {
  43. pmsg(@R;CLINICS[CLIN_CTR];@N;" ";@R;CLIN_REF[CLIN_CTR];@N|25|CTR|N|N|S|)
  44. TOT_REFS = (CLIN_REF[CLIN_CTR]+TOT_REFS)
  45. CLIN_CTR = (CLIN_CTR+1)
  46. }
  47. CENT = (TOT_REFS/NUM_SEEN*100)
  48. pmsg("REFERRALS FOR ";DRNAME[DOC_CTR]|50|6|N|N|S|)
  49. pmsg("TOTAL REFERRALS: ";TOT_REFS|50|7|N|N|S|)
  50. pmsg("TOTAL PATIENTS SEEN: ";NUM_SEEN|50|8|N|N|S|)
  51. pmsg("REFERRAL RATE: ";CENT|50|9|N|N|S|)
  52. pmsg("NUM THAT WERE VISITS: ";NUM_VIS|50|10|N|N|S|)
  53. pmsg("TO PRINT - SHIFT+PRTSC"|50|11|Y|N||)
  54. clrlne(1|8)
  55. redsp(1)
  56. clrscr
  57. CLIN_CTR = (1)
  58. NEWBIT:
  59. clrlne(1|1)
  60. saves(1)
  61. window(1|24|23|79)
  62. TOT_EMERG_REFS = (0)
  63. for(CTR|1|22|1)
  64. {
  65. pmsg(@R;CLINICS[CLIN_CTR];@N;" ";@R;EMERG_REF[CLIN_CTR];@N|1|CTR|N|N|S|)
  66. TOT_EMERG_REFS = (EMERG_REF[CLIN_CTR]+TOT_EMERG_REFS)
  67. CLIN_CTR = (CLIN_CTR+1)
  68. }
  69. for(CTR|1|22|1)
  70. {
  71. pmsg(@R;CLINICS[CLIN_CTR];@N;" ";@R;EMERG_REF[CLIN_CTR];@N|25|CTR|N|N|S|)
  72. TOT_EMERG_REFS = (EMERG_REF[CLIN_CTR]+TOT_EMERG_REFS)
  73. CLIN_CTR = (CLIN_CTR+1)
  74. }
  75. pmsg("EMERGENCY REFS FOR ";DRNAME[DOC_CTR]|50|6|N|N|S|)
  76. pmsg("TOTAL REFERRALS: ";TOT_EMERG_REFS|50|7|N|N|S|)
  77. pmsg("TO PRINT - SHIFT+PRTSC"|50|8|Y|N||)
  78. clrlne(1|8)
  79. redsp(1)
  80. clrscr
  81. CLIN_CTR = (1)
  82. saves(1)
  83. window(1|24|23|79)
  84. for(CTR|1|22|1)
  85. {
  86. pmsg(@R;CONSULTS[CLIN_CTR];@N;" ";@R;CONS_REF[CLIN_CTR];@N|1|CTR|N|N|S|)
  87. CLIN_CTR = (CLIN_CTR+1)
  88. }
  89. for(CTR|1|22|1)
  90. {
  91. pmsg(@R;CONSULTS[CLIN_CTR];@N;" ";@R;CONS_REF[CLIN_CTR];@N|25|CTR|N|N|S|)
  92. CLIN_CTR = (CLIN_CTR+1)
  93. }
  94. pmsg("CONSULTANT REFERRAL FOR: "|50|5|N|N||)
  95. pmsg(DRNAME[DOC_CTR]|50|6|N|N||)
  96. pmsg("TO PRINT - SHIFT+PRTSC"|50|22|Y|N||)
  97. EXIT:
  98. clr(REFER|B)
  99. CLIN_CTR = (0)
  100. TOT_REFS = (0)
  101. CENT = (0)
  102. goto STARTER
  103. EXIT2:
  104. run("recmenu")
  105. CLINCOUNT:
  106. clrscr
  107. REF_COD = (1)
  108. find(G|REF_COD|EXITALL|)
  109. PMSG("  CLINIC            SEEN  VISITED CLIN_REFS EMERG_REFS PC  "|10|1|n|n|S|)
  110. pmsg("---------------------------------------------------------------"|10|2|n|n|S|)
  111. CTR3 = (3)
  112. for(CTR|1|12|1)
  113. {
  114. gosub COUNT
  115. pmsg(" ";DRNAME[CTR];":";NUM_SEEN;"    ";NUM_VIS;"        ";CLIN;"         ";EMER;"  ";CENT|10|CTR3|N|N|S|)
  116. find(N|REFER|EXITALL|)
  117. CTR3 = (CTR3+1)
  118. }
  119. EXITALL:
  120. pmsg(""|1|1|Y|N|S|)
  121. goto EXIT2
  122. COUNT:
  123. CLIN = (0)
  124. EMER = (0)
  125. for(CTR2|1|50|1)
  126. {
  127. CLIN = (CLIN+CLIN_REF[CTR2])
  128. EMER = (EMER+EMERG_REF[CTR2])
  129. }
  130. TOT_REFS = (CLIN+EMER)
  131. TOT_SEEN = (NUM_SEEN+NUM_VIS)
  132. CENT = (TOT_REFS/TOT_SEEN*100)
  133. ret
  134.